home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 025a / oclip.zip / ODEMO2.PRG < prev    next >
Text File  |  1991-11-25  |  470b  |  30 lines
  1. #include "oclip.ch"
  2.  
  3. LOCAL o2 := Sample2():New("World")
  4. o2:Hello()
  5.  
  6. RETURN
  7.  
  8. CLASS Sample1
  9.   VAR Who
  10.   METHOD New = Sample1New, Hello = Sample1Hello
  11. ENDCLASS
  12.  
  13. METHOD FUNCTION Sample1New(cWho)
  14.   ::Who := cWho
  15. RETURN Self
  16.  
  17. METHOD FUNCTION Sample1Hello
  18.   ? "Hello",::Who
  19. RETURN Self
  20.  
  21. CLASS Sample2 FROM Sample1
  22.   METHOD Hello = Sample2Hello
  23. ENDCLASS
  24.  
  25. METHOD FUNCTION Sample2Hello
  26.   ::parent:Hello()
  27.   ? "Greetings and salutations!"
  28. RETURN Self
  29.  
  30.